{  Statement: http://acmp.ru/?main=task&id_task=48
   Verdict: Accepted
}
uses
    SysUtils, Math;

var
    i,ls,ans:longint;
    s:string;

begin
reset(input,'input.txt');
rewrite(output,'output.txt');
readln(s);
ls := length(s);
if s[ls] = '0' then begin
    ans := 0;
    write(1);
    for i:=ls downto 1 do
        if s[i] <> '0' then begin
            ans := i;
            break;
        end;
    for i:=ans + 1 to ls do
        write(0);
end else write(1);
end.